home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / Utilities / Plots / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-13  |  2.5 KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3458</cardID>
  8.     <listID>3170</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack
  17. go to card FrontCard
  18. hide message box
  19.  
  20. -----  From Apple HomeStack Puzzle ------------------------------------
  21. put bachSound() into theWinTune
  22. put (number of words in theWinTune div 2) into halfWords
  23. put number of words in theWinTune into totWords
  24. put word 1 to halfWords of theWinTune into tune1
  25. put word (halfWords + 1) to totWords of theWinTune into tune2
  26. put false into exitLoop
  27. play "Harpsichord" tempo 126 tune1
  28. repeat until ((the sound is done) and exitLoop)
  29. if ((the sound is done) and not exitLoop) then
  30. play "Harpsichord" tempo 126 tune2
  31. put true into exitLoop
  32. end if
  33. if the mouseClick then
  34. play stop
  35. exit repeat
  36. end if
  37. end repeat
  38. end openStack
  39.  
  40. on clearScreen
  41. choose select tool
  42. doMenu select all
  43. doMenu clear picture
  44. end clearScreen
  45.  
  46. function maxLine what
  47. put 0 into result
  48. repeat with i = 1 to the number of lines in what
  49. put max(line i of what,result) into result
  50. end repeat
  51. return result
  52. end maxLine
  53.  
  54. on closeStack
  55. sort stack by bg field Total
  56. end closeStack
  57.  
  58. -----  from Apple HomeStack Puzzle  -----------------------------------
  59. function bachSound
  60. put "f4e a4e f4e c5e f4e" & space into bach
  61. put "f5e e5s d5s c5s d5s c5s bb4s a4s bb4s a4s g4s" & space after bach
  62. put "f4e a4e c5e a4e f5e c5" & space after bach
  63. put "a5s c6s bb5s c6s a5s c6s bb5s c6s a5s c6s bb5s c6s" & space after bach
  64. put "f5s a5s g5s a5s f5s a5s g5s a5s f5s a5s g5s a5s" & space after bach
  65. put "d5s f5s e5s f5s d5s f5s e5s f5s d5s f5s e5s f5s" & space after bach
  66. put "b4e g4e d5e b4e f5e d5e" & space after bach
  67. put "g5s a5s g5s f5s e5s f5s e5s d5s c5s d5s c5s bb4s" & space after bach
  68. put "a4e d5s c5s b4s c5s b4s a4s g4s a4s g4s f4s" & space after bach
  69. put "e4s fs es ds ce c5s b4s c5e e4e" & space after bach
  70. put "f4e c5e e4e c5e d4e b4e c5q" after bach
  71. return bach
  72. end bachSound
  73.  
  74. </script>
  75.     <background id="3791" file="background_3791.xml" name="AgePlotBg" />
  76.     <background id="19562" file="background_19562.xml" name="PieBg" />
  77.     <card id="3458" file="card_3458.xml" marked="true" name="AgePlot" owner="3791" />
  78.     <card id="19435" file="card_19435.xml" marked="true" name="PieGraph" owner="19562" />
  79. </stack>
  80.